ZB.1 MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



2589905 
1 



FF12 



SYSTEM TEST RELOCATING LOADER 



ERR LOC OBJECT CODE 



ADER STMT SOURCE STATEMENT 



OAOO 



OAOO FM2 
0A02 80 
0A03 00 
0A04 0000 
OA06 ODFC 
0AC8 0000 

OAOA 00O00OC00CO0 



0A01 
0A02 
0A03 
0A05 
0A07 
0A09 

OAOF 

0A10 



0A10 FFFFFFFFFFFFFF 
0A18 FFFFFFFFFFFFFF 
0A20 FFFFFFFFFFFFFF 
0A23 FFFFFFFFFFFFFF 
0A30 FFFPFFFTFFFFFF 
OA33 FFFFFFFFFFFFFF 
0A'*0 FFFFFFFFFFFFFF 
A ;i fi FFFFFFFFFFFFFF 
0A53 FFFFFFFFFFFFFF 
0A56 FFFFFFFFFFFFFF 
CA60 FFFFFFFPFFFFFF 
CA66 FFFFFFFFFFFFFF 
0A70 FFFFFFFFFFFFFF 
0A7B FFFFFFFFFFFFFF 
OA80 FFFFFFFFFFFFFF 
0A8S FFFFFFFFFFFFFF 
0A90 FF 



0A91 OEOO 
CA93 0000 
0A95 10 



CA96 00 

0A97 OOOO 
0A99 0A10 
0A9B C6C6F2 
0A9E OACO 
OAAO FJFtD 
0AA2 FFFC 
0AA4 OOOG 
0AA6 0000 



FF 0A27 

FF 

FF 

FF 0A3F 

FF 

FF 

FF 0AS7 

FF 

FF 

FF 0A6F 

FF 

FF 

FF 0A87 

FF 

FF 

F? 0A90 



0A92 
0A92 
0A92 
0A94 
0AS5 



0A96 

0A98 
0A9A 
0A9D 
0A9F 
CAA1 
0AA3 
0AA5 
0AA7 



2 
3 
u 
5 
6 
7 
8 
9 
10 

I 1 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
30 
30 
30 
31 
31 
31 
32 
32 
32 
33 
33 
33 
3U 
3K 
34 

35 

35 
36 
37 

38 
39 
40 
U1 
42 
i*3 

II (* 
U5 
46 
1*7 
48 
49 
50 
51 
52 
53 
5U 



DECK <* 
FP1 START X'AOO' 

* * 
» SYSTEM/3 SYSTEM TEST RELOCATING LOADER * 

* * 
«***»»*»*»«»»*»»*»»#*******♦«»»*»»«*♦*«**»*•••»»***»»»»••»«*»»•»»♦*«*»• 

DC XL2'FF12« PROGRAM IDENTIFICATION AND LEVEL 

DC XLI'80' FLAGS - NO SPODT 

DC ILI'O' CURRENT ROUTINE NUMBER 

DC XL2'0» RESEPVED 

DC AL2(RTN01) ADDRESS OF FIRST ROUTINE PREFIX 

DC XL2'0« RESERVED 
»»*«»**#•*«•*♦*»***»»♦»**»♦*****»*»»*********»*»***»»»»*»****♦*»****»*» 

DC XL6'0' RESERVED FOR SYSTEM TEST SUPERVISOR 



TABLE EQU * 

* 



TABLE CONTAINING CATALOG OF PROGRAM 

MODULES IN CORE. PROVISIONS ARE * 

* MADE FOR SUPERVISION OF UP TO 16 * 

* MOIULES. INFORMATION IS CONTAINED* 

* AS IN THE FOLLOWING IIAGRAH. * 

* * 

* ft******************************************* * 

* * ARP I XR1 I XR2 I STARTING * * 
» * I I I ADDRESS * * 

* ********************************************* * 

* * 

* THIS RELOCATING LEADER INITIALIZES THIS TABLE * 
DC XL24« FFFFFFFFFFFFPFFFFFrFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' 



DC XL2«» , FPFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFPPrFFFFFFPFFFPF , 



DC XL24» FPFFFFFFFFfFFFFFFFFFFFFFFFFFFFFFFFFFPFFFFFPFFFFF' 



DC XL24'FFFFFFFFFrFFFFKFrFfFFF .'PFFFFFFFFFFFFFFFFFFFFFFF* 



DC XL2U' FFFFFFFFFFFFFFFFFFFFFrFFFFFFPFFFFFFFFFFFFFFFFFFF , 



START 

BASE 

NPROGS 



DC XLg'FFFFFFFFFFFFFFFFFF' 

AND MODIFIES THESE CONSTANTS DU 

USING START, 1 

USING START, 2 

DC XL2»CE00» 

CC AL2(*-*) 

DC ILV16' 



LOADING. 



SXFLAG DC XLVO' 

* 

BSIZE DC XL2'0' 

PCINTR DC AL2 (TABLE) 

FF2 DC CL3'FF2« 

XAOO DC X'""A00» 

i. ... A DC 'FFD' 

HEGU, DC '• PFFC 

SO?S DC _ s 0« 

t<-TR DC XL2 , 0' 



STARTING ADDRESS OF NEXT MODULE 
RELOCATION FACTOR FOR CURRENT HODUIF 
THIS COUNT IS DECREMENTED, AFTER EACH 
MODULE LOADED - NO MORE THAN 16 * 
ALLOWED. * 

WHEN FF, LOADER IS SKIPPING MODULE 
WHEN EE, LOADER HAS RUN OUT OF CORE* 

POINTER TO MODULE TABLE 

STARTING ADDRESS OF ALL MODULES 



WORK AREA 
••ft*************************************** 



DATE 28.IUL69 
EC NO. 816444 



15SEP69 
816499 



« 14NOV69 
816555 



2 0.1AN70 
816576 



01APR71 
818948 



PROG ID 
PAGE 



0FM-2 
1 



IBH MAINTENANCE DIAGNOSTIC PROGRAM 

FF12 SYSTEM TEST RELOCATING LOADER 

EBB LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 



PART NO. 
PAGE 



2589905 
1A 









CAA8 


56 


SETUP 


EQD 


* 


OAAS 


3D AO 


0232 




57 




CLI 


UTAB.X'AO" 


OAAC 


F2 01 


30 




58 




JNE 


LOADC 


OAAF 


3D C5 


0880 




59 




CLI 


INPUT, C E> 


0AS3 


F2 01 


29 




60 




JNE 


LOADC 


0AB6 


OE 01 


0AA7 0D86 




61 




ALC 


LPTB, EIGHT 


OABC 


35 01 


0AA7 




62 




L 


LPTR,XR1 


OACO 


78 20 


00 




63 




TBN 


0(,XR1) ,X«20« 


0AC3 


F2 90 


OA 




64 




JF 


RDC 


0AC6 


35 01 


0A9A 




65 




L 


P0INTR,XR1 


OACA 


7C FF 


00 




66 




HVI 


0{.XR1) ,X'FF' 


OACD 


F2 87 


23 




67 




J 


LDSV 








OADO 


68 


RDC 


EQU 


* 


OADO 


1C 01 


OADB 01 




69 




HVC 


PID,1(2,XR1) 


0AD5 


CO 87 


022A 




70 




B 


LOAD 


0AD9 


20 




0AD9 


71 




DC 


XLI'20' 


OADA 


0000 




OADB 


72 


PID 


DC 


XL2«0» 


OADC 


F2 87 


05 




73 




J 


conn 








OADF 


74 


LOADC 


EQU 


* 


OADF 


CO 87 


022A 




75 




B 


LOAD 


0A13 


10 




0AE3 


76 




DC 


XL1 MO' 








0AE4 


77 


COHH 


EQU 


• 


0AE4 


C2 01 


0880 




78 




LA 


INPUT, XR1 


0AE8 


C2 02 


0A92 




79 




LA 


START, XR2 


OAEC 


6D 02 


5A OB 




80 




CLC 


90(3, XH1) ,FF2 (,XR2) 


OAFO 


F2 01 


07 




81 




JNE 


CHKEE 








0AF3 


82 


LDSV 


EQU 


* 


0AF3 


CO 87 


022A 




83 




B 


LOAD 


0AF7 


08 




0AF7 


84 




DC 


XLI'08" 


0AF8 


0FF2 




0AF9 


85 




DC 


XL2'FF2' 


OAFA 


BD EE 


04 




36 


CHKEE 


CLI 


SKFLAG(,XR2) ,X' EE' 


OAFD 


EO 81 


16 




87 




BE 


SETUP(,XR2) 


OBOJ 


7D 40 


00 




88 




CLI 


0(,XR1),C • 


0B(,3 


F2 01 


AC 




89 




JNE 


CKSK.IP 


0B06 


7D 40 


UD 




90 




CLI 


75{,XP1) ,C • 


0B09 


F2 81 


2t 




91 




JE 


CL.-LA", 


OBOC 


CO 87 


0226 




92 




B 


PACK 


3B10 


02 




0B10 


93 




DC 


ILI'2" 


0B11 


8CC 




0B12 


94 




DC 


AL2(INPUT+76) 


0B13 


0867 




0B14 


95 




DC 


-L2 (TNPUT+7) 


0B15 


Ci 02 


0232 




96 




LA 


UTAfc, XR2 


0B19 


9D 00 


OJ 07 




97 


L00P1 


CLC 


(1,XR2) ,7 (# XR1) 


0B1D 


F2 81 


12 




98 




JE 


CLFLAG 


0B20 


B« 10 


01 




99 




TBN 


1 (,XR2) ,X 10' 


0B23 


E2 02 


02 




100 




LA 


3 <,XR2) ,XP2 


0B26 


CO 90 


0B19 




101 




3F 


L00P1 


0B2A 


3C FF 


0A96 




102 


SETSKP 


HVI 


SKFLAG.X'FF' 


0B2E 


CO <-7 


CAA8 




103 




B 


SETUP 


TB32 


C2 02 


0A92 




104 


CLFLAG 


LA 


START, XR2 


0B36 


BC 00 


C4 




105 




HVI 


SKFLAS(,XR2) ,X'00'. 


0B39 


CO 87 


0226 




106 




B 


PACK 


0B3D 


04 




0B3D 


107 




DC 


IL1'4« 


0B3E 


08D0 




0B3F 


108 




DC 


AL2(INPUT+80) 


0B40 


0A98 




0B41 


109 




DC 


AL2(HSIZE) 


0B42 


5C IF 


1F 3F 




110 




BVC 


31 (32,XR1),63(,XR1) 


0B46 


7C 4 


5F 




111 




MVI 


95 (,XR1) ,C ' 


0B49 


5C 3E 


5E 5F 




112 




MVC 


94 (63,XR1) ,95 (,XR1) 


0B4D 


35 01 


0A9A 




113 




L 


PCINTP,XR1 


0B51 


4C 01 


07 0A92 




114 




MVC 


7 (2.XR1) , START 


0R56 


CO 87 


02 IE 




115 




E 


IINPkCK 


0B5A 


02 




0B5A 


116 




DC 


ILI'2' 


0B5B 


0A92 




0B5C 


11'' 




DC 


AL2(START) 


0B5D 


08A4 




0B5E 


118 




DC 


AL2(INPUT+36) 


0B5F 


AC 01 


02 00 




119 




MVC 


BASE(2,XR2) .START (,X 


OB63 


AF 01 


C2 OD 




120 




S,.C 


BASE(2,XR2) ,XA00(,XR 


DB67 


AC 01 


13 00 




121 




HVC 


NORK(2,XR2) ,START(,X 


0B6B 


AE 01 


13 06 




122 




ALC 


WORK (2.XR2) .MSIZE (,X 


0B6F 


8D 01 


13 0203 




1?1 




CLC 


W0RK(2, XR2) ,SIZE 


DATE 


28JUL69 15SEP69 


1 .N0V6 9 


20JAN70 C1APR71 


EC NO. 


81 64 4 4 81649 9 


8165 r v 


5 


816576 


8 1tV)48 



CHECK FOR DISK LOADER 
CHECK FOB END CARD 



BRANCH IF NOT FIBST CARD OF SPRVSR 



LOAD SYSTEM TEST SUPERVISOR 

CARDS. 
BRANCH IF OUT OF CORE 

BRANCH IF NOT HEADER CARD 

IF NO DEVICE ID, GO AHEAD AND 

LOAD THE MODULE 
PACK DEVICE IP3NTIFICATI0N 



INITIALIZE POINTER TO DCP UNIT TABLE 
BRANCH IF UNIT IS ATTACHED TO SYSTEM 

CHECK FOR LAST DCP ENTRY 
INCREMENT TO NLXT UDT ENTRY 
CONTINUE UNLESS DCP UNIT TABLE DONE 
SET FLAG TO SKIP THIS MODULE 

RELOAD BASE REGISTER 
CLEAR SKIP FLAG 
PACK SIZE OF MODULE 



PUT STARTING ADDRESS IN PROPER 

TABLE ENTRY 
UNPACK STARTING ADDRESS OF THIS 

MODULE 



R2) SET UP RELOCATION FACTOR FOR THIS 

2) MODULE 

R2) 

R2) 

BRANCH IF ThIS MODULE MILL FIT IN 



PROG ID 
PAGE 



0FF1-2 
1A 



IBfl MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



2589905 
2 



rri2 



SYSTEM TEST RELOCATING LOADER 



ERR LOC OBJECT CODE 



ADDR STMT SOURCE STATEMENT 



0B7U 


F2 


04 


16 






124 




JNH 


PTITLE 


0B77 


BC 


EE 


04 






125 




nvi 


SKFLAG(,XR2) ,X'EE« 


0E7A 


CO 


87 


021A 






126 




B 


PRINT 


0B7E 


C6 








0B7E 


127 




DC 


XL1«C6« 


0B7F 


22 








0B7F 


128 




DC 


IL1 '34' 


0B8O 


ODCE 






0B81 


129 




DC 


AL2(EHSG) 


0B82 


FF01 






0B83 


130 




DC 


XL2«FF01« 


0B84 


CO 


87 


0222 






131 




B 


HALT 


CB83 


FF01 






0B89 


132 




DC 


XL2«FF01» 


0E8A 


EO 


87 


16 






133 




B 


SETUP(.XR2) 


0B8D 


CO 


87 


C21A 






134 


PTITLE 


B 


PRINT 


0B91 


21 








0B91 


135 




DC 


XL1'21' 


0B92 


38 


80 


C20B 






136 




TBN 


SBYTE3.SSW18 


0E96 


EO 


90 


16 






137 




BF 


SETUP(,XR2) 


CB99 


CO 


87 


021A 






138 




B 


PRINT 


CB9D 


16 








0B9D 


139 




DC 


XL1M6' 


0B9E 


CO 


87 


0222 






140 




B 


HALT 


0BA2 


FFEO 






0BA3 


141 




DC 


XL2'FFE0' 


0BA4 


BO 


00 


13 






142 




SNS 


S0RK(,XR2) ,X'0* 


0EA7 


BB 


OF 


12 






143 




SBF 


W0RK-1 (,XR2) ,X'OF» 


OEAA 


BD 


AO 


12 






144 




CLI 


W0RK-1(,XR2) ,X«A0» 


OBAD 


EO 


81 


98 






145 




BE 


SETSKP(,XR2) 


OBBO 


EO 


87 


16 






146 




B 


SETUP (,XR2) 


0BB3 


BD 


FF 


04 






147 


CKSKIP 


CLI 


SKFLAG(,XR2) ,X'FF« 


0BB6 


EO 


81 


16 






143 




BE 


SETUP (,XR2) 


0B39 


7D 


E3 


00 






149 




CLI 


(,XR1) (CI 1 


OBBC 


F2 


01 


C3 






150 




JNE 


CKREP 


OBBF 


3D 


AO 


0232 






151 




CLI 


UTAB.X' AO' 


0EC3 


F2 


81 


52 






152 




JE 


TEDONE 


0BC6 


7D 


DO 


01 






153 


L00P2 


CLI 


1 (,XR1) , X'DO' 


0BC9 


?2 


01 


03 






154 




JNE 


**6 


OBCC 


7C 


2A 


01 






155 




nvi 


1 (,XR1) ,X'2A' 


CBCF 


D2 


01 


CI 






•156 




LA 


1 {,XR1) ,XR1 


0BD2 


34 


01 


13 






157 




ST 


W0RK(,XR2) ,XR1 


0ED5 


BD 


D8 


13 






158 




CLI 


W0RK(,XR2) ,X , D8» 


0BD8 


CO 


82 


0rC6 






159 




BL 


L00P2 


OB DC 


C2 


03 


C6D7 






160 




LA 


INPUT+87,X'03' 


OBEO 


3C 


00 


CEEB 






161 


LENGTH 


BVI 


S1*1,0 


0BE4 


OC 


00 


0B2F 


OSEB 




162 


CNLOOP 


nvc 


S2+1 (1) ,S1*1 


03EA 


AS 


00 


01 01 






163 


SI 


ALC 


1<»-*,XR2),1<.XR2) 


OBEE 


t\ Zi 


oo 


01 01 


I 




164 


32 


ALC 


1(*-*,XR2) ,1(.XR2) 


0BF2 


OE 


CO 


CBEB 


ODFC 




165 




ALC 


S1 + 1 (1) ,ONE 


0BF8 


3D 


04 


OBEB 






166 




CLI 


SI+1,4 


OBFC 


CO 


01 


0BE4 






167 




SNE 


CMLOOP 


OCOO 


6C 


02 


01 OC 


I 




168 




nvc 


1 (3,XR1) ,0(,XR2) 


0C04 


36 


01 


0AA1 






169 




A 


NEG3.XR1 


CC08 


36 


02 


0AA3 






170 




A 


NEG4,XR2 


OOOC 


34 


01 


GAA5 






171 




ST 


wosK,xm 


GC10 


3D 


97 


0AA5 






172 




CLX 


W(,"K,X '97 » 


0C14 


CJ 


34 


OBFO 






173 




BH 


LENGTH 


0C18 


C2 


01 


C880 






174 


TEDONE 


LA 


INPUT, XR1 


0C1C 


3D 


AO 


0232 






175 




CLI 


UTAB.X'AO' 


OC20 


F2 


01 


27 






176 




JNii 


CDSTP 














177 


* DISK SETUP FOR RELOCATION. 


0C23 


1C 


2 


CC8C 


03 




178 




KVC 


M0VE*3 53) ,3(,XR1) 


0C28 


OE 


01 


CC8C 


0A94 




179 




ALC 


MOVEO (2) .BASE 


0C2E 


1C 


00 


CC8D 


01 




180 




RVC 


N0VE+4{1) , 1(,XR1) 


0C31 


D2 


02 


? c 






181 




LA 


255(, XP1) ,XR2 


Or.' 3 6 


7C 


00 


CO 






182 




nvi 


0{,XF1) ,X'0« 


0C39 


76 


01 


CI 






183 




A 


1 (,XR1) ,XR1 


0C3C 


D2 


0] 


04 






184 




LA 


4 (,XR1) ,XR1 


0C3F 


34 


01 


C881 






185 




ST 


INPUT*1,XR1 


0C43 


C2 


01 


C884 






186 




LA 


INPUT*4,XR1 


0C47 


F2 


67 


23 






187 




J 


.^00 P 3 














188 


* CARD SETUP FOR RELOCATION 


0C4A 


1C 


02 


0C8C 


19 




!B9 


CDSTP 


nvc 


HOVE*3(3) ,25(,XP1) 


0C4F 


OE 


01 


0C8C 


0A94 




190 




ALC 


MOVE*3(2) ,BASE 


0C55 


1C 


00 


0C8D 


17 




191 




nvc 


M0VE*4(1) ,23(,XR' 1 ) 


DATE 


28JIJL69 


15fEPb9 


14NOV69 


20JAN70 01APR71 


EC NO. 


8 16444 


816499 


816555 


816576 


818948 



CORE 
SET FLAG TO INDICATE OUT OF CORE 
PRINT OVER CORE INDICATION 



HALT ON ERROR 

GO READ NEXT CARD 

PRINT MODULE NAME i STARTING 

SKIP HALT IF SENSE SWITCH 18 OFF 

SKIP 6 LINES 

HALT TO ALLOH BYPASSING MODULE 

READ DATA SNITCHES 

IF LEFTMOST DATA SWITCH IS -A-, 
SET FLAG TO BYPASS THIS MODULE 
GO READ NEXT CARD 
GO READ NEXT CARD IF SKIP FLAG ON 

BRANCH IF NOT TEXT CARD 

BRANCH IF LOADING FROM DISK 

REPLACE X'DO» BYTES WITH X«2A« 



INITIALIZE POINTERS 

INITIALIZE LENGTH OF ADD FIELD 

SHIFT OFF HIGH ORDER TWO BITS 

PREPARE TO OPERATE ON NEXT BYTE 
CONTINUE UNTIL 4 BYTES COMPRESSED 

MOVE COMPRESSED BYTES TO TEMP FIELD 
PREPARE FOR NEXT 4 BYTES 



CONTINUE UNTIL CARD DONE 
POINT XR1 AT READ-IN FIELD 
BRANCH IF LOADING FROM MFCU 



SET UP DESTINATION ADDRESS 
RELOCATE 

SET UP SOUF.CE DISPLACEMENT 
POINT XR2 AT LAST RELOCATION BYTE 
SET DP LOWER LIMIT FOR RELOCATION 
SEARCH 



POINT AT 1'IRST BYTE TEXT DATA 



SET UP DESTINATION ADDRESS 

RELOCATE 
SET UP SOURCE DISPLACEMENT 



PROG ID 
PAGE 



3FF1-2 
2 



IBH MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



2589905 
2A 



FF12 



SYSTEM TEST RELOCATING LOADER 



ERR LOC OBJECT CODE 



ADDR STMT SOURCE STATEMENT 



0C5A D2 


02 55 




192 




LA 


85(,XR1) ,XR2 


OC5D 4E 


00 17 0C6C 




193 
194 


* 


ALC 


23 (1,XR1) .PTXR1+2 


0C62 7C 


00 16 




195 




nvi 


22(,XR1) .X'O' 


0C65 4E 


01 17 OAAB 




19l» 




ALC 


23 (2,XR1) .SETUPO 


OC6A C2 


01 1A 




197 


PTXR1 


LA 


26(,XR1) ,XR1 


0C6D BD 


00 00 




198 


L00P3 


CLI 


0(,XR2) ,X , 0« 


OC70 F2 


61 16 




199 




JE 


MOVE 


0C7 3 2C 


00 0C7A 00 




200 




HVC 


REL0C+2(1) ,0(,XR2) 


0C78 4E 


01 00 0A9U 




201 


RELOC 


ALC 


*-* (2.XR1) ,BASE 


0C7D 36 


02 ODFF 




202 




A 


NEG1,XR2 


0C81 3U 


02 OAAS 




203 




ST 


W0PK.XH2 


0C85 CO 


87 0C6D 




204 




B 


L00P3 


0C89 1C 


00 0000 00 




205 


HOVE 


MVC 


♦-*(*-♦) .*-*(, XR1) 


0C8S CO 


87 OAAS 




206 




B 


SETUP 


OC92 7D 


D9 00 




207 


CKREP 


CLI 


0(,XR1) ,C»R' 


0C95 F2 


01 49 




208 




JNE 


ckcch 


0C98 CO 


37 0226 




209 




B 


PACK 


0C9C 04 




0C9C 


210 




DC 


ILI'U' 


0C9D C865 


0C9E 


211 




DC 


AL2(INPUT*5) 


0C9F OCC3 


OCAO 


212 




DC 


AL2(DEST) 


0CA1 OE 


01 0CC3 0A94 




213 




ALC 


DEST(2) .BASE 


0CA7 7D 


C5 01 




214 




CLI 


1 (,XR1) ,C«E» 


OCAA F2 


01 07 




215 




JNE 


AJDEST 


OCAD 35 


01 0CC3 




216 




L 


DEST.TtBI 


OCB1 DO 


87 00 




217 




B 


0(,XR1) 


0CB4 D2 


01 08 




218 


AJDEST 


LA 


8 (,XR1) ,XR1 


OCB7 34 


01 0CC1 




219 


NEXT 


ST 


SRCE,XR1 


0C3B CO 


87 0226 




220 




B 


PACK 


0C3F 02 




OCBF 


221 




CC 


ILI'2' 


OCCO 0000 


0CC1 


222 


SHCE 


DC 


AL2 {*-*) 


0CC2 OOCO 


0CC3 


223 


DEST 


DC 


AL2 (*-*) 


0CC4 OE 


01 0CC3 ODPC 




224 




ALC 


DEST,0NE(2) 


OCCA 7D 


40 01 




225 


CKBLK 


CLI 


1(,XR1),C • 


OCCD EO 


81 16 




226 




BE 


SETUP(,XR2) 


OCDO D2 


01 01 




227 




LA 


1 (,XR1) ,XR1 


0CD3 7D 


6B 00 




228 




CLI 


0(,XR1) ,C',« 


0CD6 CO 


61 OCCA 




229 




BE 


CKBLK 


OCDA D2 


01 01 




230 




LA 


1 (,XR1) ,XR1 


OCDD CO 


67 0CB7 




231 




B 


NEXT 


0CE1 7D 


5C 00 




2 32 


CKCOH 


CLI 


(,XR1) ,C'*' 


0CE4 F2 


01 OF 




233 




JNE 


CKEND 


0CE7 38 


01 0208 




234 




TBN 


X'208'.X'OI' 


OCEB EO 


10 16 




235 




BT 


SETUP(,XR2) 


OCEE CO 


87 021A 




236 




B 


PRINT 


0CF2 21 




0CF2 


237 




DC 


XLI'21' 


0CF3 EO 


87 16 




238 




B 


SETUP(,XR2) 


0CF6 7D 


C5 00 




239 


CKEND 


CLI 


0{,XR1) ,C'E' 


0CF9 EO 


01 16 




240 




BNE 


SETUP (,XR2) 


OCFC 35 


01 0A9A 




241 




L 


POINTS, XR1 


ODOO 75 


01 07 




242 




L 


7(, XR1) ,XR1 


0D03 78 


80 02 




243 




TBN 


2 (,XR1) # X«80' 


OD06 F2 


10 58 




244 




J~ 


LDEND 


OD09 C2 


02 0232 




245 


UFIND1 


LA 


UTAB.XR2 


ODOD 9J 


00 00 OA 




246 


UFIND2 


CLC 


0(1, XR2) ,10(,XR1) 


0D11 F2 


01 18 




247 




JNE 


UFIND4 


0D14 6C 


00 OC 02 




248 




HVC 


12(1, XR1) ,2(,XR2) 


0D18 68 


03 OB 01 




249 




HNN 


11 (,XR1) ,1 (,XR2) 


0D1C 7A 


20 OB 




2 50 




SBN 


11 (,XR1) ,X'20' 


0D1F 78 


10 OB 




251 


UFIND3 


TBN 


11 (,XB1) ,XM0' 


0D22 D2 


01 03 




252 




LA 


3 (,Xf» I) ,XR1 


0D25 CO 


90 CD09 




253 




BF 


UP1N01 


0D29 F2 


87 35 




254 




J 


LDEND 


0D2C B8 


10 01 




255 


UFIND4 


TBN 


1(,XR2) ,XM0' 


0D2P E2 


02 03 




256 




LA 


3(,ZR2) ,XR2 


OD32 CO 


90 CDOD 




257 




BF 


UFIND2 








258 


» MODULE UDT REQUIREMENT COULD 


0D36 7H 


40 OP 




259 




TBN 


11 (,XR1) ,X«40' 


D\TE 2«JUL6<; 15f.Fr 


4)9 


14N0Vfi9 


20JAN70 01APR71 


EC NO. H16444 816499 


816555 


816576 018948 



POINT XR2 AT TABLE OF RELOC BYTES 
SET UP CORPARE LIMIT FOR RELOCATION 
SEARCH 



POINT XR1 AT BEGINNING OF TEXT DATA 
IF ZERO FILL, DONE 

SET UP DISPLACENENT FOR RELOC ADJUST 

ADD RELOCATION FACTOR 

ADJUST TO LOOK AT NEXT RELOC BYTE 



MOVE TEXT DATA TO CORE 

GO READ NEXT CARD 

BRANCH IF NOT REPLACE CARD 

PACK ADDRESS 



ADD RELOCATION FACTOP 

BRANCH IF NOT PATCH EXECUTE CARD 

BRANCH TO CARD ADDRESS IF IT IS 

POINT AT FIRST PAIR OF HEX DIGITS 
LOAD POINTER FOR THIS PAIR 
GO PACK THIS BYTE 



INCREMENT DESTINATION POINTER 
DONE WHEN BLANK ENCOUNTERED 

INCREMENT TO NEXT POSITION 
BYPASS ANY COMMAS 

INCREMENT POINTER TO RIGHT DIGIT 

GO PACK ANOTHER BYTE 

BRANCH IF THIS IS NOT COMMENT 

CARD 

SHS07 ON? 

PRINT CONTENTS OF THIS CARD 

GO READ NEXT CARD 
BRANCH IF NOT END CARD 

IOAD MODULE TABLE POINTER 

POINT XR1 AT MODULE SECTION PREFACE 

BRANCH IF NO UDT ENTRIES 

POINT XR2 AT DCP UNIT TABLE 
BRANCH IF NOT PROPER UDT 

LOAD SECTION PREFACE OPTION BITS 

SET ASSIGNED FLAG 

INCREMENT SPUT POINTER 
IF NOT LAST ENTRY, GO LOAD NEXT 
OTHERWISE - GO ON WITH LOADING 
TEST FOR LAST DCP UDT ENTRY 
INCREMENT DCP UNIT TABLE POINTER 
CONTINUE UNTIL ALL UDT CHECKED 
NOT BE FULFILLED. 

SKIP ERROR HALT IF REQUIRED FLAG NOT 



PROG ID 
PAGE 



0PF1-2 
2A 



IBB MAINTENANCE DIAGNOSTIC PROGRAM 



FP12 SVSTEfl TEST RELOCATING LOADER 



PART HO. 
PAGE 



2589905 
3 



ERR LOC OBJECT CODE 

0D39 CO 90 0D1F 

0D3D D2 01 OA 

0D40 34 01 0D4A 

0D44 CO 87 021E 

0D48 01 

0D49 0000 

0D4B OD8F 

ODUD CC 87 021A 

0D51 CI 

0D52 26 

0D53 ODAC 

0D55 FF02 

0D57 CO 87 0222 

0D5B FF02 

0D5D CO 87 0AA8 

0D61 OE 01 0A92 0A98 

0D67 35 01 CA9A 

0D6B 7C 00 CO 

OD6E OE 01 0A9A 0D86 

0D74 OP 00 0A95 ODFC 

0D7A F2 01 04 

0D7D 30 EE 0A96 

0D81 CO 87 0AA8 



0D85 00C8 



ADDR STHT SOURCE STATEJ1ENT 



0DU8 
0D4A 
0D4C 

0D51 
0D52 
0D54 
0D56 

0D5C 



0D86 



0D87 C4C5E5C9C3C540E7 ODAC 
0C6F E740E5C6E340C1E3 
0D97 E3C1C3C8C5C460D4 
0D9F E6C4E4D3C540C2E8 
0DA7 D7C1E2E2C5C4 
OCAD C3D6D9CS40D625C5 ODCE 
0DB5 D9C6D3D6E6C5C46B 
0D2D D3E6C1C4C9D5C740 
0DC5 E3C5DSD4C9D5C1E3 
ODCD CSC4 
ODFB 



ODFB 00 
ODFC 01 

ODFD 00 
ODFE FFFF 



OEOO 3D AO 0232 
0E04 CO 01 0E6B 
0EC8 CO 87 022A 



OOFB 
ODFC 
ODFC 
ODFD 
ODFF 
ODFF 



260 

26 

262 

263 

264 

265 

266 

2 67 

268 

269 

270 

271 

272 

273 

2 7U 

275 

276 

277 

276 

279 

280 

281 

282 

283 

28U 

285 

286 

287 

288 

289 

290 

291 

292 

293 
293 

293 

293 

293 

294 

294 

294 

294 

294 

295 

296 

297 

298 

299 

300 

30 1 

302 

303 

30 

3 

3 

30, 

308 

309 

310 

311 

312 

313 

314 

3U 

316 

317 

318 

319 



DEVID 



LDEND 



BF UFIND3 

LA 10(,XR1),XB1 

ST DEVID.XR1 

B UNPACK 

DC IL1M* 

DC AL2(»-») 

DC AL2(EBSGl-29) 

a PRINT 

DC XLI'CV 

DC ILI'38' 

DC AL2(E«SG1) 

DC XL2«FF02» 

E HALT 

DC XL2'FF02' 

B SETUP 

ALC START (2) ,HSIZE 

L POINTR.XRI 

BVI 0{,XR1),X«0» 

ALC PCINTR(2) .EIGHT 

Si.C NPR0GS(1) ,ONE 

JNZ *+7 

BVI 5KFLAG # X'EE' 

B SETUP 



ON 



PUT UNIT IDENTIFICATION IN PRINTOUT 



PRINT ERROR MESSAGE TO INDICATE 
THAT UNIT SOT DEFINED IN UDT 



•HALT IF SSH06 IS OFF 

GO TO READ NEXT HODULE 

SET UP STARTING ADDRESS FOR 

NEXT HODULE 
LOAD POINTER TO THIS TABLE SLOT 
INDICATE THAT ENTRY HAS BEEN FILLED 
INCREMENT FOR NEXT HODULE 
SET FLAG TO TERMINATE LOADING IF 

16 MODULES HAVE BEEN LOADED 

GO READ NEXT CARD 



* CONSTANTS ***************»**»*»•**»«.*»***#»*****«♦*♦***«**,**»***„,, 
EIGHT DC XL2*P8« 

♦*»*»***«*«** 

EHSG1 DC CL38" DEVICE XX NOT ATTACHED-MODULE BYPASSED' 



EHSG 



DC CL34«CORE OVERFLOWED, LOADING TERMINATE!;' 



ORG X'EO0»-5 
ROUTINE 01 - RELOCATING LOADER 



THE FOLLOWING CODE LOADS THE PROGRAM MODULES, RELOCATING THE 
CONSECUTIVE PROGRAMS AND ALIGNING EACH ON A 256-BYTE BOUNDARY. 
DCP LOADS THE SYSTEM TEST SUPERVISOR AND BRANCHES TO THIS LOADER. 
CARDS RECOGNIZED BY THIS LOADER INCLUDE— 



HEADER 

TEXT 

REPLACE 

COMMENT 
* END 

************************** **»***»**********•*»*•***»*•*•*****♦•«♦♦**** 
DC XL1'0' 

DC XLV01' 

ECU *-1 

DC XLI'O' FLAGS 

DC XL2'FFFF' LAST ROUTINE PREFIX 

EQU *-1 

*»»♦«♦»•.»*»»«»««♦*»*«♦•»»*••♦»♦•***«•«<♦»♦»♦***•»»♦»»»♦»»♦«♦♦»♦»♦«»•»• 

CLI UTAB,X'A0' 

BNE PRTHD 
B LOAD 



RTN01 

ONE 



NEG1 



CURRENT ROUTINE NUMBER 



DATE 
EC NO. 



28JUL6S 
8 164414 



'5SEP69 
•!1f>499 



14NOV69 

sit^ss 



20JAN70 
816576 



01APR71 
818948 



PROG ID 
PAGE 



0FF1-2 
3 



IBB MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



2589905 
3A 



?ri2 



SYSTEM TEST RELOCATING LOADER 



ERR LOC OBJECT CODE 



ADDR STMT SOURCE STATEMENT 



OEOC 
OEOD 
0E11 
0E15 
•0E19 
0E1D 
OE1E 
0E24 
0E28 
0E2E 
0E32 
0E36 
0E3A 
0E3E 
0E42 
0EU6 
0E4A 
0E4E 
0E52 
OE53 
0E55 
0E57 
OE5D 
0E63 



02 

3C 10 

C2 01 

34 01 
CO 87 
10 

OD 02 
CO 01 
OD 02 
CC 81 
3D FF 
CO 81 
3D 40 
CO 81 

35 01 
34 01 
3C C4 
CC 87 
04 

0667 
0000 
OE 01 
OF CO 
CO 81 



OEBD 
0A11 
CAA7 
022A 

0882 0E90 

GE6B 

0887 0E93 

CE67 

088A 

0E67 

088A 

CE67 

0AA7 

0E56 

0884 

0226 



0AA7 0D86 
0E8D ODFC 
0E6B 



OEOC 



0E1D 



n E67 CO 87 CE19 



0E6B CO 87 021A 

0E6F 42 

0E70 24 

0E71 0EB7 

0E73 FFOO 

0E75 C2 1 OA10 

0E79 34 01 CA9A 

0E7D C2 01 0A08 

0E81 34 01 0aA7 

0E85 3C C5 0b80 

0E89 CO 87 0AA8 

0E8D 10 

0E8E C1C3E3 

0E91 D6E3C4 

0E94 D3C9E2E340D6C640 

0E9C D4C6C4E4D3C5E240 

0EA4 5040E2E3C1D9E3C9 

OEAC D5C740C1C4C4E9C5 

OEB«» E2E2C5E2 



CE52 
0E54 
0E56 



0E67 

0E6B 

0E6F 
0E70 
0E72 
0E74 



0E8D 
0E90 
0E93 
0EB7 



C880 



0001 
0002 
0008 
0203 

:ob 

02U 
021E 
0222 
0226 
022A 
2 32 
0880 

0080 
FFFF 



320 

321 

322 

323 

324 SEEK2 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 708 

341 

34 2 

343 

344 NEXTS 

345 

346 VEND 

347 PRTHD 
348 

349 
350 
351 
352 
353 
354 
355 
356 
357 

358 TCNT 

359 ACT 

360 OLD 

361 HDG 
361 

361 
361 
361 
362 
363 
364 
3 65 
366 



SEEK TO VTOC 



DBIJF 



READ k 
CHECK 



RECORD 

FOB ACTIVE ENTRY 



CHECK FOR OLD ENTRY 



CHECK FOR SYSTEM TEST HOD. 



DC XLV02* 

MVI TCNT, 16 

LA TA3LE+1.XR1 

ST LPT2.XR1 

B LOAD 

DC XL1M0' 

clc dbuf*2(3) ,act 

bne vend 

clc dbuf*7(3) ,old 

BE NEXTS 

CLI DBOF*10,X'FF' 

BE NEXTS 

CLI DBOF+10.C' • 

BE NEXTS 

L LPTR.XR1 

ST T03.XR1 

MVI DBUF+4,C'D' 

B PACK 

DC XL1'4« 

DC AL2(DB0F+7) 

DC AL2(*-*) 

ALC LPTR, EIGHT 

SLC TCNT, ONE 

BZ VEND 

EQU * 

B SEEK2 

EQU » 

B PRINT 

DC XL1'42« 

DC . IL1 >36' 

DC AL2(KDG) 

DC X^2»F?00 : 

LA TABLE, XR1 

ST P0INTR/XR1 

LA TABLE-8,XR1 

ST LPTR,XR1 

MVI INPUT, C'E* 

B SETUP 

DC IL1M6' 

DC CL3«ACT' 

DC CL3«0LD» 

DC CL36«LIST OF MODULES 6 STARTING ADDRESSES' 



EQU X'880« 



FORCE CORRECT BRANCH FOR DISK 
WHILE LOADING MODULES 



*********** 

* EQUATES ************************************************************* 
*********** 
EQU 



3 67 XR1 

368 XR2 

369 ARR 

370 SIZE 

371 SBYTE3 

372 PRINT 

373 UNPACK 

374 HALT 

375 PACK 

376 LOAD 

377 UTAB 

378 INPUT 

379 * 

380 SSW18 
381 



1 

EQU 2 
EQU X'08» 
EQU X'203« 
EQU X^OB" 
EQU X'21A» 
EQU X'21E* 
EQU X«222« 
EQU X'226« 
EQU X«22A« 
EQU X'232' 
EQU X'880* 
SENSE SWITCH NUMBER 
EQU X'80« 
END 



INDEX REGISTER 1 

INDEX REGISTER 2 

ADDRESS RECALL REGISTER 

SRT - CORE SIZE OF SYSTEM 

SECOND BYTE OF SECTION SEFSE SWS 

SRT -ENTRY TO PRINT 

SRT -ENTRY TO CONVERT HEX TO EBCDIC 

SRT -ENTRY TO HALT 

SRT -ENTRY TO PACK EBCDIC TO HEX 

SRT -ENTRY TO LCAD 

SRT -FIRST BYTE 

ADDRESS OF READIN AitEA 

SSW TO HALT BEFORE LOADING MODULE 



DATE 
EC NO. 



28JUL69 
816444 



15SEP69 

8164<J9 



14NOV69 
81655S 



20JAN7C 
816576 



01APR71 
818948 



P'rtOG ID 

PAGE 



0FF1-2 
3* 



IBH HAINTENANCE DIAGNOSTIC PROGRAM 



FF12 SYSTEH TEST RELOCATING LOADER 



PART NO. 
PACE 



2589905 

4 



CROSS-REFERENCE 



SYHBOL T LEN VALUE DEFN 



ACT 

AJDEST 

ARR 

BASE 

CDSTP 

CHKEE 

CKBLK 

CKCCH 

CKEND 

CKREP 

CKSKIP 

CLFLAG 

CHLOOP 

COflH 

DBUF 

DEST 

EEVTD 

EIGHT 

EI1SG 

EBSG1 

FF1 

FF2 

HALT 

HDG 

INPUT 

LDEND 

LOSV 

LENGTH 

LOAD 

LOADC 

LOOP1 

L00P2 

LOOP3 

LPTR 

HOVE 

MSIZE 

NEG1 

NEG3 

NEG4 

NEXT 

NEXTS 

NPROGS 

OLD 

ONE 

PACK 

PID 

POINTR 

PRINT 

PRTHD 

PTITLE 

PTXR1 

3 DC 

RZLOC 

RTN01 

SBYTE3 

SEEK2 

SETSKP 

SETUP 



0G3 
0C3 
001 
002 
005 
003 
003 
003 
003 
0C3 
003 
004 
006 
001 
001 
0C2 
002 
0C2 
034 
038 
001 
0C3 
C 001 
A 036 
C 001 
0C6 
001 
004 
001 
001 
004 
003 
0C3 
002 
0C5 
0"2 
001 
A 0C2 
A 002 
OCU 
001 
0C1 
003 
0C1 
001 
002 
002 
0C1 
0C4 
004 
Of J 
001 
005 
001 
001 
004 
0C4 
001 



SIZE C 0C1 
SKFLAG A 001 
SRCE A 02 



SSU18 
START 
SI 
32 



C 001 
A 02 
A 0C4 
A OCU 



0E90 
0CB4 
0008 
0A9U 
OCUA 
OAFA 
OCCA 
0CE1 
CCF6 
0C92 
05E3 
0B32 
0BE4 
0AE4 

oeeo 

0CC3 

0D4A 

0D86 

ODCE 

ODAC 

OAOO 

0A9D 

0222 

0EB7 

0880 

006 1 

0AF3 

OBEO 

C22A 

OAEF 

0B19 

0BC6 

CC6D 

0AA7 

0C89 

CA98 

ODFF 

0AM 

0AA3 

CCB7 

0E67 

CA<15 

0E93 

01FC 

0226 

OADB 

0A9A 

C21A 

0E6P 

0B8D 

CC6A 

OADO 

0C78 

ODFC 

C2 0B 

0E19 

0B2A 

0AA8 

C203 
0A96 
0CC1 
0C80 
0A92 
OBFA 
OBEE 



0359 

0218 

0369 

0040 

0189 

0086 

0225 

0232 

0239 

0207 

0147 

0104 

0162 

0077 

0362 

0223 

0265 

0288 

0294 

0293 

0003 

OOi' S 

0374 

0361 

0378 

0275 

0082 

0161 

0376 

0074 

00 97 

0153 

0198 

0053 

O205 

0046 

0315 

0050 

0051 

0219 

0344 

0041 

0360 

0312 

0375 

0072 

0047 

0372 

0347 

0134 

0197 

0068 

0201 

0311 

0371 

0324 

0102 

0056 

0370 
0044 
0222 
0380 
0039 
0163 
0164 



REFERENCES 

0326 
0215 

0119* 0120* 0179 

0176 

0081 

0229 

0208 

0233 

0150 

0089 

0091 

0167 

0073 

0326 

0212 

0262* 

0061 

012° 

0266 



0190 0201 0213 



0098 



0328 0330 

0213* 0216 

0279 0341 

0270 



0332 0336* 0339 
0224* 



0080 

0131 

0350 

0C59 

0244 

0067 

0173 

0070 

0058 

0101 

0159 

0187 

0061* 

0178* 

109 

0202 

0169 

0170 

0231 

0329 

0280* 

0328 

0165 

0092 

0069* 

0065 

126 

0318 

0124 

0193 

0064 

0200* 

0013 

0136 

34 5 

0145 

0087 

0274 

1 23 

0086 

0219* 

0136 

0037 

0161* 

0162* 



0140 0272 

0078 0094 0095 0108 01 8 0160 0174 0185* 0186 0211 0356* 
0254 



0075 0083 0319 0324 
0060 



0204 

0062 0323* 0334 0341* 0355* 

0179* 0130* 0189* 0190* 0191* 0199 

0122 0275 



0331 0333 



0224 0280 0342 

0106 0209 0220 C337 

0113 0241 0277 0279* 0353* 

0134 0138 0236 0267 0347 



010J 0133 013? 0146 0148 0196 0206 0226 0235 0238 0240 
0283 0357 

0102* 0105* 0125* 0147 02l<2* 



0038 0079 0104 0114 0117 119 0121 0275< 
0162 0165* 0166 



OATE 
EC NO. 



<>8JUL69 
816444 



135EP69 
816499 



14N0V69 
816555 



20JAN70 
816576 



1APR71 
8 1f?9UH 



PROG ID 
PAGE 



0FF1-2 
4 



IBB HAINTBNANCE DIAGNOSTIC PROGRAM 



FF12 SYSTEa TEST RELOCATING LOADER 



PART SO. 
PAGE 



2589905 
4A 



SYHBOL T LEN VALUE DEFH 



TABLE 

TCNT 

TEDCNE 

Toa 

UFIND1 

0PIND2 

OFIND3 

0FIND4 

UNPACK 

UTAB 

VEND 

WORK 

XA00 

XR1 



A 001 
A OC1 
A 004 
A 0C2 
A 004 
A 0C4 
A 003 
A 003 
C 001 
C 001 
A 001 
A 002 
A 002 
C 001 



XR2 



0A10 
0K8D 
0C18 
0E56 
0D09 
CDOt 
0D1F 
0D2C 
021E 
0232 
0E6B 
0AA5 
0A9F 
0001 



0018 
0358 
0174 
0340 
0245 
0246 
0251 
0255 
0373 
0377 
0346 
0052 
0049 
0367 



C 0C1 C002 0368 



CROSS-REFERENCE 



REFERENCES 



047 

0321* 

0152 

0335* 

0253 

0257 

026C 

021*7 

0115 

0057 

327 

012,* 

0120 

0062* 

0111 

0169* 

0186* 

0214 

0232 

0252* 

0353 

0079* 

0119 

0143 

C168 

0245* 



0322 0352 0354 
0342* 



0263 
C096 
0343 
0122* 0123 



0151 0J75 
0142* 



0063 

0112 

0171 

0189 

0216* 

0239 

C259 

0354* 

0080 

0120 

0144 

0170* 

0246 



0065* 

0112 

0174* 

0191 

0217 

0241* 

0261 

0355 

0086 

0120 

0145 

0181* 

0248 



0066 

0113* 

0178 

0192 

0218 

0242 

0261* 

0O87 

0121 

0146 

0192* 

0249 



0245 0317 

0143* 0144 0157* 01Se 0171* 0172 0203* 

0069 0078* 0080 0088 0090 0097 0110 0110 

0114 0149 0153 0155 0156 0156* 0157 0168 

0180 0181 0182 0183 0183* 0184 0184* 0185 

0193 0195 0196 0197 0197* 0201 0205 0207 

0218* 0219 0225 0227 0227* 0228 0230 0230* 

0242* 0243 0246 0248 0249 0250 0251 0252 

0262 0277* 0276 0322* 0323 0334* 0335 0352* 

0096* 0097 0099 0100 0100* 0104* 0105 0119 

0121 0122 0122 0123 0125 0133 0137 0142 

0147 0148 0157 0158 0163 0163 0164 0164 

0198 0200 0202* 0203 0226 0235 0238 0240 

0255 0256 0256* 



TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 
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3 165:.. 5 
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OBJECT CARD LISTING 



THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 

CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 18 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 



T*-t:"lH C-.0 



I HititNii nwnntt h ttHMn wiih wiftt nn nttnnttwnnMitHMMn nttttn HnHimHHNHRRH nitit^ $:UFF120001 



>^• + .25 ,,^l " MI,l>, " ,M " , iinnitMii tirtti niintitui n «. tinnnMnnnnnntinmitt ttnnnnnn iinnminnnn iinnttnitrit if nnnnnnn nnn) -»ZHFF120002 



-p + _ j)Qhwm iiiiwiiiiti iim HiMiii Httnitd tin ftiiit ittt ti ttitii iih ««»£_ ^ 



HD<$F3-Y ""7 "" *T H23-D 0J*H JZHFF120003 



T*-,,BHC2 KU + 6D XCQQ5 6DX;B 3Z H (6DHWX3" |HGH10 AB_XA0H»BHS |H GA*3G SY60-DH-<H BBZH RJ-FF120004 

T*-«a$SIEB"HAAaa g'sYHC'H'M-JH «6 C2 E5'6D?2-K$ /OHB -T<BH-B -H 2X6 A"HAD,-S ;H B 9 --8HFF120005 

T*-_/U %R||3HVXB GBDTB -DK? DOH* BI-6H* DQPAa-*|71 P50=PV85 6DEL D GBZ. /OH; -DKBHK X 6H 6C6FF120006 

T+->* H3A -6% J< ,-DLAY4AD0HC3-6 O?*8D0H*BF%QSC»« " *BG S." ; BGEXB G /Y/*H BB=B6»%B G /Y N,*FF120007 

T+-7PES3G S."8. D#X | D, 6-D> BAW + 3 GE, 7"A + BAEX7T |H A436- T-2-NI'U G 2 SjaH-GK 6F«J J* • 6A< i$*FF120008 

T*-0K0HH.1%HCB(» a ?.C .#0?,,- A E8 6D + ?,C-0 'A ?,0 D.9F0B 6 6 6D/ (-HHY36ABDH «V0Y 6YYFF120009 

T*-1 (Z*BC3=CB 6S |E B<?HAI10BCH0 CC-D<T DHG <T6G K ?*a A6 6GK 66 4 6SA0-DH/I HGH10 BCHO -.Q-FF120010 

T«~2HF68ACHCHVA0 CH4P4-INL- FCF1 a AR* J*HD»HAF,4 | HAESO CGY L-D BZ66 -7" ( HHZ*B GCF4 N2YFF120011 



T+-3CG C /0D Y-) U a-E!0H*BI-6 H/63CC-D<0ODH--*H Aa-DG (6D<0 ■ BG (H »BC6AC<G /OHW 



28<FF120012 



T*-3=C-D<007a-.M A8HD04-DA-OX OHD <2_HA *BGC.)'P C 2 688 &HH8A O0H* BFSG-/1R' 16C- JQ 5 6Y Jt*FF120013 

• • • • -* • * * • • *••• • * • • • 

T*-49WXMAA7S ?H 60<HB TH) H3-D Q$ < W-CE0E:H _ 8D ?K 6| U UI»Y* 5>A A8-HC0I {CP/ B3 8L0FF12O014 

T+-54U 4-U-DH( D (KJBG /8A (T3B G /,AI-6X"0. /OH S"0. /ODYC-DHU-D Q(6DHWX0 8ABZY {/-3 KHMFF12O015 

T*-6? DNC-32 EC at-DO0H*HD HKP V2*| EG*-<X& (P084C A8 = | A03TE1 FCMSXL U49N O>TP0;.S1*L C5_U HY3FF120016 



TG-7-*1MC09»PR1_| 09XPDE' |O0«Lt5*) 83PR5<XN0; | E1 



:SHFF120017 



T*-85 D '"'a'Y ;; 20 D+E3BG 3YB|A *T*HAB/D4 6DX0H» BH/ ( -SBCZC 69 ,C6HH/0:L0HD*R37 "BHY ;-QFFl20018 

T+-900HD+B35 3H, -69X (6DHZ36 ACVQ a) 1 Sl)0H*BI-6H/0 C-DHZ06FCO *T67 aOHD+IaBGC/X /OH E6S6 ?S FF120019 

T+-:,C,-." <HAB/ 4 6DE0-DHBC6ABL* 316S 0H*HDACA0'| 043LL2 ; .T6 ($F6 (L 01*LL1;I MDCS89G R13U OlilFTi 20020 



TB0:75») 0*LD6»P SS^PS 



R6-FF12O021 



DATE 28JUL69 155EP69 14NOV69 20JAN70 01APR71 

EC NO. 8164(44 816499 016555 316576 318948 
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FF12 SYSTEM TEST RELOCATING LOADER 

OBJECT CARD LISTING 
CL 1 THROUGH 1b CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 



E»»t*E7*=-.DC"PH$ =»7H6F| I C FX ASC R A SO Q 09310317710 l»C571=H0FF1 20022 
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